home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / execln.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  900b  |  30 lines
  1. /*****************************************************************************
  2.  
  3.     ExeCln()
  4.  
  5.     This function handles the colon and double-colon modifiers.
  6.  
  7.     This function implements the modifiers by setting bits in the
  8. CmdMod variable.  Commands which are sensitive to colon or double colon
  9. modification check CmdMod explicitly.
  10.  
  11. *****************************************************************************/
  12.  
  13. #include "zport.h"        /* define portability identifiers */
  14. #include "tecoc.h"        /* define general identifiers */
  15. #include "defext.h"        /* define external global variables */
  16.  
  17. DEFAULT ExeCln()        /* execute : or :: modifiers */
  18. {
  19.     DBGFEN(1,"ExeCln",NULL);
  20.     if (CmdMod & COLON) {            /* if colon bit is set */
  21.         CmdMod &= ~COLON;        /* clear colon bit */
  22.         CmdMod |= DCOLON;        /* set double-colon bit */
  23.     } else {
  24.         CmdMod |= COLON;        /* set colon bit */
  25.     }
  26.     DBGFEX(1,DbgFNm,"SUCCESS");
  27.  
  28.     return SUCCESS;
  29. }
  30.